home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
olrdrs
/
1st_111b.zip
/
SCRIPTS.ZIP
/
KMAIL.SCR
< prev
next >
Wrap
Text File
|
1993-05-23
|
1KB
|
71 lines
' ┌────────────────────────────┐
' │ Kmail script for 1stReader │
' │ May 15th, 1993 │
' └────────────────────────────┘
IF SCR_CALL THEN GOTO SETUP
CAPTURE ON
KILL @API$(28)@API$(10).DL
NEWFILES ON
:SETUP
CALL $$PCB.SCR
IF NOT SCR_CALL THEN GOTO JOINCONF
TERMINAL
EXIT
:JOINCONF
COMMENT "@DATE@ @TIME@ Joining conference #@CONFERENCE@"
TRANSMIT "J @CONFERENCE@ Q - 1stReader #@API$(121)^M"
WAITFOR "=yes?" 3
IF FOUND=1 THEN TRANSMIT "N^M"
:DOOR
COMMENT "@DATE@ @TIME@ Opening Kmail Door"
TRANSMIT "@QMAIL@^M"
LOOKFOR ") to continue?" ""
:REPLIES
IF NOT REPLIES GOTO DOWNLOAD
COMMENT "@DATE@ @TIME@ Uploading replies"
WAITFOR "Kmail Command?"
TRANSMIT "U^M"
WAITFOR "@BBSID@.REP"
UPLOAD @REPDIR@@BBSID@.REP
WAITFOR "successful"
IF FOUND=1 THEN GOTO GOODUPLD
GOTO DOWNLOAD
:GOODUPLD
COMMENT "@DATE@ @TIME@ Deleting @BBSID@.REP"
KILL @REPDIR@@BBSID@.REP
COUNT REP
:DOWNLOAD
WAITFOR "Kmail Command?" 20
IF SCR_REPLY THEN GOTO GOODBYE
TRANSMIT "D^M"
WAITFOR "Continue?|When Done?"
IF FOUND=2 THEN GOTO GETMAIL
TRANSMIT "^M"
WAITFOR "Kmail Command?" 10
GOTO GOODBYE
:GETMAIL
TRANSMIT "G^M"
WAITFOR "@BBSID@.QWK"
DOWNLOAD @PACKETDIR@@BBSID@.QWK
COUNT QWK
GOTO EXIT
:GOODBYE
TRANSMIT "G^M"
:EXIT
PAUSE 5
HANGUP
CAPTURE OFF